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Introcuction 


The BCC 500 Fortran is a subset of ANST Fortran 1V, 
formally called ANST Basic Fortran. The source program 
is prepared by the text editor, QED. This source file 
Ls compiled by the Fortran Compiler, FTC which prepares 
an object file for the Fortran Qperating System, FOS. 
Debugging facilities in FOS, allow the user to break- 
point statements, execute single statements, and examine 
and change Fortran variables. | 

This manual outlines the basic commands for each 
subsystem, many of which may also he obtained by typing 
the Ilelp Command in each subsystem. Although the system 
allows RK words of storagze, much larger programs can be. 
effectively run by using files which are common to all 
levels of the system since most Large programs can be 
broken into a sequence of smaller programs communicating 
through data files. FOS indicates how much storage 
remains after loading all subprograms. All programs 
referenced must be loaded whether or not they are called. 
The following chart show the structure of the Fortran 


system, 
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fi. Fortran Compiler 
A. Syntax 
“xpressions and Definitions 


integer Constant- Integer without decimal point using 
digits O,1,...9 with optional preceding + or — sign. 

Integer Variable-Series of alphanumeric characters 
(except special characters) the first of which is 
T,J,K,L,M, or N. The series may be any length for 
readability but the first six characters comprise 

| the name. | | 

Integer String-Integer variable name defined by nfl= 


n characters where nis from 1 to °. 
heal Constant- Any number written with a decimal point 
using decimal. digits and optional sien. ‘A\n integer. 
exponent may follow a floating point constant, it 
may also have a preceeding Sign, Examples are: 
.0097 
9. 7E-3 
2 OF6 | | | 
Keal Variable-Series of alphanumeric characters | 
(except special characters), the first of which is. 
alphabetic and not 1,J,k,L,M, or N, The first six 
characters define the name. | 
Real String- Real variable name defined by nli=n characters 
where n ranges from 1 to 6. - 
Suhscripted V 


by Ll, 2, or 3 integers greater than 0, that are separated 


ariables- An integer or real variable followed 


by commas. Examples are: 
Beta(5* 7-2) 
Max(1,K+2,1L) 


Arithmetic Statements 
| | | | | | 
The form of arithmetic stalanedte is "a"="b" where a may be 


a subseripted variable and b iS an expression. 
Pxpression- Sequence of constants, subscripted or 

non=subscripted variable(s) and operation sywhols 

which indicate a quantity or a series of calculations. 
{) 


eration Symbols- +,-,*,/,** indicating addition,subtraction, 
multiplication,division, and exponentation. 
Rules for constructing expressions 
J. The simplest expression consists of a combination 
of constants and variables. If the quantities are 
‘integer the expression is in the integer mode, real 
quantities are in the real mode, string quantities 
may be used in either mode depending on their names. 
°, Exponentation of a quantity does not affect its mode, 
but an integer may not he given a real exponent. 
.. Suantitiecs may be preceded by a +,- or connected by 
any of the operators to form expressions provided: 
No two operators appear consecutively. 
Suantities connected are of the same mode. 
No operators are assumed to be present. 
4. Parenthesis do not affect the mode of the expression 
but mav be used to specify order of precedence whichis 
normally executed left to right in the following order: 
** exponentation — | 
*? multiplication and division 


+- addition and subtraction 


Control and Specification statements 
The following ‘is a list of the Fortran statements, 
the general form of the statement, the purpose of 


the statement, and an example. 


ACCEPT n, List where n is the statement number of 
statement, and list is a list of the quantities 
to be transmitted. | 
Purpose: read information from teletype as specified 
hy format statement n. Numbers may he right justified 
to the format by adding a comma after each number as 
At ois typed in. 


Example: \ecept 9, 1,J,k which may be entered as 3,141,595 


regardless of the contents of Format statement ©. 


ASSIGN i to n where i iS a statement number an nis a. 
real or fixed variable which appears in an assigned 
GO TO statement or as a format number. 


furpose: causes a subsequent 40 TO n, (My No---n) 


to transfer control to statement i where i is included 
in the series above, or to transmit data with different 
formats during execution. 

1 ee eee 
\(3)- e @ @ 8 8 

\SSTGN 3% TO AQL) | 
. FORMATCOPTO.: 5) | | » 

TYPE ACLY,SAC2),A03) where A(1) acts as a Label 


Mxample: 


CALL name (ay 4Agy eee a) where name is the name of a Subroutine 
subprogram, and cach a, is an argument. | * 
Purpose: used to call subroutine subprograms; the call 
transfers control to the subprogram and presents it 
with the parenthesized arguments. 

(CALL QDRTIC(P*9.732,Q/4.536 ,R-S**2, 4X1 ,X2) 


CLOSE (i) where i is file number given in OPEN command for 
~~ ‘Peading or writing symbolic (QED) files. 


Exam Le: 


OPEN (i, INPUT »SYMBOLIC ,"name:9SVYM") where i. is file number 
"OUTPUT. and name is file name. 


COMMON Aprons seedy where each a. 1s the name of a variable 
or non subscripted array. aac. 
Lurpose: Causes each a to be assigned a location in 
common storame allocated by position. 
isxample COMMON X ,ANGLE MATA, MATB 
SUBROUTINE SPHERE | 
COMMON A,B,C ,D 
CONTINUE 
Purpose: used as last statement in range of a DO when 
the DO would otherwise end with a transfer of control. 
ANiso used as a no operation for program readability. 


DIUMENS TON VypsVYooeee VE where each v;, is the name of an 
array subscripted with 1,2 or 3 unsigned integer 
constants. Each subscript indicates the size of one 
dimension of the array. 
urpose: provides information necessary to allocate 

sterage for arrays. Storage is assigned columnwisc. 

mxample: DIMENSION A(10), B(5,5,5), J(12,3) 


DO n i=m,,m,,m. where nis a statement number , i is a 
non subscripted integer variable, and M,oM,5, ™ are 
either integer constants or non subscripted variables. 
If m. is not stated it's value is assumed to be l. 
Purpose: command to execute repeatedly the statements 
which follow up to and including the statement with. 
sta tement number n. ‘The first time the statements are 
execated with l=m,. For each succeeding execution i 
is increased by Mg Control passes to the statement 
following n when i exceeds Be | 


lixample: DO 25 T=l1, 15 
DO 90) Jel J 


Purpose: indicates end of source program or subprogram 


~ 


FQUILVALENCE (a,b,c), (dep £¥.. eek where a...f are variables 
which may have a single subscript. 
Purpose: causes all variables specified hy each 
parenthetical expression to be assigned the same 
location in storage. 

‘xample: EQUIVALENCE (TOP,SIDE(3)), (BOT(14),H) 


FORMAT (S84 5S855+--S)) where s. is a format specification. 
Purpose:describe type of conversion and format of datas 
to be used in the transmission of an input/output list. 
Connections may be established during execution as 
described in the ASSIGN statement. Formats are data 
inter preted DY FOS, therefore it is possible to Input 
An appropriate string of characters into an array 

from any ‘file such as the teletype at runtime. This 
feature allows programs to be tested with minimal formats 
and expanded to any desired level, also part of the 
output may be deleted with FO.O, TO, or EO. specified. 
The format string is referred to by the name of the 
array which stores it in memory. nA3 should be used 

for an integer array and nA6; for a real array. In 

both cases, the number of words n must be greater or 
equal that required to hold the string but may not 

exceed the size specified by dimension statements. 
Termination of output does not produce a carriage return, 
enabling many different statements to produce one physical 
Line of output. Literal values are delimited by §$----$. 


ixample: TYPE 1 
| 1 FORMATC$SUMS OF SQUARES = &) 
TYPE 2,SUMSQ 


2 FORMAT(13/) 
This produces the integer conversion of SUMSQ, one line 
of output and the explicit carriage return / to line feed. 


FUNCTLON name (a),8),-.+--a)) where name is the function 
name Subject to mode convention and a, are arguments. 
Purpose: the statement is used at the beginning of a 
function type subprogram to define its name and 
arguments. | | 


Example: FUNCTION ROOT(B,A,C) 


GO TO n where n is a statement number 


Purpose: transfers control to statement n 


GO TO Ny CO) sMoyeee0 where n is a non-subscripted integer 
variable appearing in a previously executed ASSIGN 
statement and ns is also a statement pnumber that tay 
have been assigned to n by a previously executed 
ASSIGN statement. — 
Purpose: transfers control to the statement with 
statement number equal to that value of n which was 
last piven by an ASSIGN statement. 


Example: GO TO K (100, 200,300) where k is LUO, 20U or 300U. 


GO TO (ny Mo,-----n), i where Ny»Noy--+-H, are statement 
numbers and i is a non subscripted integer variable. 


Purpose: transfers control to the ith value on the Iist. 
Example: GO TO (10,20,30,40),J where J is 1,2,3, or 4. 


IF(a) n,,n,,n,. where a is an expression and n,,n, and 
— eas | | ome 3 
statement numbers . 


Purpose: causes transfer of control to statemnt n,,n,,n. 
Leen inaiiieinmaend ; see +2 AG : ] Cid «> 


depending on whether a is less than, equal to, cr greater 
than vero. Basic fortran.does ‘not support logical IF's.... 
Example: IF((X+Y)-10.) 5,15,25. | 


9, 


TF (SENSE LIGHT i 


Purpose: causes transfer of. 


N,»N5 where n,and n,are statement noumbers, 
ane a ' i 


control to statement nh, or ty 
if the sense. Light i is on or off respectively. There are 
24 sense lights that may be tested. 


Example: IF (SENSE LIGHT 3) 30,40_ 


IF (SENSE SWITCH i) n,n, where i is the number of a sense 
switch ( 1 through 4) and ny and Nn, are Statement pbumbers. 
Purpose: transfers control to statement n, or a, if 
sense switch i is up or down. Sense switches are set in 
FOS with the i;5 for SET and i;R for RESET commands. 
Example: TFCSENSE SWITCH 2) 10,20 


PALS! n where nis a number typed if non zero. 

Purpose: Stops execution of program temporarily and 
types "PAUSE n" on the teletype. The user may type ;F 
to continue the program or debug at that time, | 
Example: PAUSE 1 ; 

READ n, List where n is the statement number of a format 
and list is the quantities to be transmitted. | 
Purpose: Allows any QED file to be accessed. Specific 
symbolic files may be assigned and reassigned during a 
run. If a file is not assigned default is to the 
teletype. | | 
Example: READ 1, DATA 

RETURN 
Purpose: returns control td main program-which called 
it. - er 

SENSE LIGHT i where i, a number between 1 and 24, is turned 
on. If i is zero, sense lights are turned off. | 

Purpose: permits sense lights to be turned on or off so 

that they may later be tested to cause a program to branch. 

Rxample: SENSE LIGHT 5 | 


LO. 


STOP 
Purpose: causes object program to halt and allow for 
debugging or return to system supervisor. 


SUBROUTINE name(a,,a,---a, ) where name is the symbolic 
name of each subprogram, and each a. is an argument. 
Purpose: first statement of SUBROUTINE-type subprogram 
and defines it to be such,as well as defining its name 
and arguments. 

Example : SUBROUTINE QURTIC(B,A,C ,ROOTL ,ROOT2) 


TYPE n, list where n is the statement number of a format 
and list is a list of quantities to be transmitted. 
Purpose: causes quantities to he typed on the teletype 

in accordance with FORMAT n. Many type statements can 
produce the same physical line of output if a "/" is 
not encountered in the FORMAT statement. 
Example: TYPE 10, A,B,C 


Procedures 

Fortran procedures consist of Functions and Subroutines. 

Tn order to use them they must be defined and called, 

Functions may be defined in the following four ways: 

Arithmetic Statement Functions: These functions are defined 
by a single arithmetic statement in the source program. 

Huilt in Functions: pre-defined and exist in the program 
Similar to macro's at the assembly level, that is they 
are incorporated into the object program each time it is 
refered. to by the source program. 

Library functions: pre-defined and exist in program eee 


Function _ usually user subprograms that may consist 


of more than one statement and we common to all subprograms. 


11. 


Mach type of function must observe the following conventions: 
May use other functions in its definition. 
May have as many variable as| desired passed as arguments. 
Must have names formed in accordance with rules for 
naming functions, 
Calling functions must follow these rules: 
Name indicates the mode of the single value that is result. 
Arguments must correspond in number, order, and mode with 
arguments which appear in the program definition. 
Subroutines differ from the more specialized functions in two 
ways: : | | 
They may not he referenced by their appearance in an 
arithmetic expression but must be used with a CALI. 
They may return more than one value which may be passed 


either with arguments or through COMMON. 


B. Library 
A number of functions are available from the Library file, 
#2:FLIBE, when called by a loaded program. <A compiled subprogram 
may have the same name as a Library function, When two or 
more Subprograms of the same name are read by FOS, the first 
one is loaded and the rest are ignored. 
The library presently contains the fol lowing functions: | 
ALOG computes the natural logarithm of a real argument. 
Memory: 138 words | 
Accuracy: relative error less than e«to!! | 
EXP compites exponential base eof réal*argument. 
Memory: 144 words | . ; 
Accuracy: relative error Less than gt pom tie gmax(0, (loggx+1)) 
SQRT computes square root of real argument. 
Memory: 83 words 


Accuracy: relative error less than po7l 


I2. 


L 3 


ATAN given two arguments, y and x, the routine computes 

the arctangent of y/x giving the result in radians in 

the proper quadrant. If one argument is given x is 

assumed to be l. 

Memory: 256 words 

Accuracy: relative error less than 107! 

ABS ,TABS real or integer ahsolute value, argument may 
he of esther mode. 


Memory: 13 words 


Ay 
ee 
a 
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JOT converts integer argument to real 
Memory: 4 words | | | 
PEUX SINT AINE integer or floating value of real argunent 
truncated to integer, Positive and nerutive arguments 
are both truncated toward zero. 
Memory: & words 
TSTGN 


the second argument, - assigned to the value of the first 


SIGN integer or real result of the algebraic sign of 


argument. 
Memory: 20-21 words 
AMOD requires two real arguments, returns the remainder 
when the first is divided by the second. That is 
Wut VY eA-PLOATCPIXCA/B)) 4B | 
Meiory: JA words 
OD requires two integer arguments. Returns the remainder 
| when the first is divided by the second. For intezers 
MODCL ,J)=T-CU/T) td 


Memory: 9 words 


MAX,AMAX..finds intéger or real maximum of any number of 
arguments of -either mode. | | 

MIN,AMIN finds integer or real minimum of any number of 

arguments af either mode, | 


Memory: GO words, includes all four entrics. 


13. 


DIM requires two real arguments, returns the difference 
if the first one is greater than the second, otherwise 
returns ZOO. 
HIMCA Bi = AMAXCA-B, O10) 
wi MORLSOLO%=4MAXCA,O.0) and -DIMCO.,O,AY=AMINGO.O, 14) 
The OLM Punction is much shorter if the result is needer. 
Memory: lO words 

TDiIM requires two integer arguments. Returns the difference 
if the first is greater than the second, otherwise returns 
ZCVO. 
LDIMCI J }=MAX(I-7,0) 
Memory: LO words 

LOCF returns the absolute address of an argument of either 

mode. | 


Memory: 4 words 


If given two real arguments, P and 9, this function returns 


* 


aero. if they are equal within the four low order mantissa 


P-W. Given one real argument P, the funetion returns 
gers if ils magnitude is less than io.” otherwise it 
returns an integer with the sign of Ee. This function is 
useful in conjunction with the if statement to provide | 
a means of testing equality of decimal numbers in binary. 
Memory: 25 words. a | | | 

EXIT same effect as STOP statement, except that *EXIT* is 
typed. OS returns to the command mode. 

 . Memory: 1O words. | 

POWER ,FORM, TIME, BRS ,WOF ,ISLZE, and IPOSIT also exist in the 
library file and are for the most part built in functions. 


C4 


14. 


Sytbol Table Size | | 
Symbol table storage ils dynamical Ly allocated by the 
compiler, None of the tables have fixed length; cuch 
may be Lonethened, shortened, or relocated as items 
are added or removed. No table can be exceeded until 
all memory is used. Included in the symbol table storage 
is the working storage for statement translation. This 
area is expanded during the analysis of each statement 
and contracted as the program iS written out. Since 
it's size fluctuates rapidly in preportion to statement 
complexity, it is difficult to predict the available 
symbol table storage, but may be approximated At 150 words. 
Table storage is bound in the following way: 
N+25+6442F4174264+4L4+2C+3D+3D4+M+W less than TABLESIZE 
where: _ | 
A= number of array variables 
C= common identifiers 
D= do loops 
H= equivalence identifiers 
rer. real constants 
G= global subprograms 
T= integer constants 
L= local subprograms ¢€Arithmetic Statement functions) 
i= format statements | 
s= number of scalar variables 


W= working storage 


c.-—-/7w 
Ne 


pos 
wy 


Commands 

To invoke the Fortran Compiler give the executive command 
wPTC which responds with it's name, version and + 

+H. Lists all the commands available in the subsystem. 

The commands which must be confirmed by a "." are: 
tinput from (FLLE-NAME) . Source file should be OSM 


+Output from (FILE-NAME), Compiled object program Ulin 


+List tu CRTLE-NAME). 9SYM If Listing is wanted on 


terminal "*T" should be specified as file nane. 
+Uethug. must be invoked prior to compile if runtiie 
debugger is going to be used. 
+Map. gives map of’ program variables 
ssuoMap. Fisting normally produces map of program vartablie 
storage. This is omitted by invoking NoMap after list. 
+NolList. 
+Novebug. 
+Compile. 
+Finished. 
_ lenore this Line. 
Syntax check with nocode generation is provided by 
not invoking the output command. | 
New files are created by enclosing the file name in 
double quotes. | 
Typing control-K at any time returns to the "+" 


command processor. 


aor 


$id. Fortran Operating System 


A. fionder | ee a, 


MOD inchudes such operations as floating point 
arithmetic, format scanning, and program debugging. 
Fortran programs compiled by (TC are loaded and | 
executed with FOS by giving the following command: 

¢FOS carriage return The system responds with 

LOAD MAIN PROGRAM 
FROM FILE (PILE-NAME), ee 

If subprograurs are called they must be read following 
the routine which calls it, if this order is violated, 
the names of the missing routines will be typed and | 
the file should be read again. «Uf Library routines 
are not included in the user files, they should be 
loaded when the system responds 

LOAD SUBPROGRAMS 75.7 | 
PROM FY DE for any subprograms type PY LE-NAME, 
#2:FLIBE. 


for the library type | 
When all the programs and subprograms the system. 


will respond with 
LOADING COMPLETE, the time, and the unused storage. 
Transfers to the executive are permitted during the 
loading process provided FOS isn't waiting for the 
user to open another file. The following situations | 


may arise while loading: 


FILE NOT BINARY Files not 9BIN or not 
ILLEGAL PILE generated by FTC | | 
PROGHK AM TOO BIG | Exceeds 8K currently available 


for programs and subprograms 


17. 


At this point the program may be executed, if the 
program was compiled without the debugging option, only 


the following commands may be used: 


+36 Go to the first statement of the main program 
+ 3b Proceed after pause or crror 

+3) Wisregard previous error or pause hereafter 
+3N Reinstate all disregarded items 

ate Exit Fortran Operating System 

t(nd35 Set senseswitch n 

+(ni3k Reset sense switch n 

$0 Tenore this line 


Control Return to "+" command processor 


/K — ead 
+ 3H Prints all commands of subsystem 


B. Runtime Debugging | 
tf the program was compiled with the DERUG option, 


the debugger commands may be used. These include: 


+Caddress* .G Go to addressed statement 

aes 2 Proceed afer error pause or breakioint 
+(addressvi(n) Set breakpoint at addressed Ling Uéne4 
+!€n) | Clear breakpoint no 

+10 - | | Clear all breakpoints 

+faddress)3C Replace address with continue statement 
coed | Print address of current Line 
+Caddress)= Print closest relative adress 

+(name)/ | Print variable name in intrinsic mode 
+Cname)[_ Print variable name in octal 

+(name )" 7 Frint variable name in ASCII. 

+(name \é/ | Intrinsic mode input | 

tCpnamede [Eo Octal mode input 


+ (name Yer | ASCII mode input 


om 
$ £ ce 


LOS. 


Addresses for the dehugger may have one or two parts. 
The two part address specifies a program unit followed by | 
a relative label address. Once a two part address has been 
ziven the debugger remembers the program unit. Thereafter 
a one part address specifying only the relative label will 
operate within the most recently specified program unit. 


Toittatly the main program is assumed specified. ‘uxamples: 


Bet ae ec Subprogram USER, Jabel LOO 

enh POOF Subprogram USER, 5 statements orior to | 
label 1OO | 

ig | Main program, label 40 

#$00E 7051 - Main program, breakpoint |] at 10 


statements beyond tabel 100 
Runtime Diagnostics. 


AGTO An assigned GOTO statement has been encountered 
but no variable has been assigned. 


ARGS An argument of the wrong mode has been transmitted 
| to a subprogram. The incorrect mode ts used. 


ARGN The wrone number of arguments has bcen transmitted 
to a subprogram. If too many were transmitted, the 
extra ones are ignored, If too few were transmitted 
the extra positions are filled with garbage. 

COPO The value of a computed GOTO Ties outside the range 
enpecified. Control transfers to the first statement 
of the given List, 


PLA rOoOS ais unable to output one or more variables as 
the FORMAT statement Lacks a needed E,’,I, or A. 
The variable is not transmitted. i 


mXP The argument of an expontial function is greater 


than 176 octal. The answer is set to the maximum 
real value. 


FCHR FOS has detected an illegal format character. 
| The character is ignored and a scan for the next 
specification is begun. Character has same ctfect 
as a comma, 


PORMSPORP The 1/0 statement variable references something 
other than a format statement. | 


LS, 


The 1/0 statement which references a FORMAT has 
never been assigned. 


rOS has received an illegal input character. 
The character 18 ignored and a scan is herun 
for the next input field. 


The value of an IF SENSE LIGHT statement is not 
between } and 24. Yhe sense Light is assumed off. 


The value of an IF SENSE SWITCH is other than 
between l and 4. The sense switch is assumed off. 


An input number to FOS is outside of range. The 
value is set to zero, 


VPropram specifies a transfer to an undefined label 
The program cannot be continued, but the debugeer 
may be used. 


The argument of a logarithm function is negative 
ae vero, the result of the functton is set to zero, 


The program has tried to raise a nevative number to 
a non-integral real power. The form /N/**F is 
commuted instead, 


Output exponent exceeds range. The number is 
transmitted with O exponent. 


The size of storage has been exceeded, continuing 
progpram will destroy common storage required by 
subroutine calls. 


The value of the SENSE LIGHT is not in the range 
Of 1} to 24, The statement is ignored. 


\ negative argument was passed to the square root 
subroutine. The absolute value is used. 


The program tried to raise O to a non positive power. 
If it was to the O power al or |. is returned, If 
it was to negative power, the maximus possit.le real 
or integer value is returned, 
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MONDAY APRIL 21, 1975 11215247 


DIMENSION LETTER(S) 
LETTER(1)=1H+ 

LETTER(2)=1h- 

LETTER(3) 21H" 

LETTER (4) =1H/ 

LETTER(5)=148S 

ACCEPT 1,IOPERATE,IARG1I,I1IARG2 
FORMAT(A1,218) 

DO 10 1=1,5 | 
LFCLETTER(I)-IOPERATE) 10,20,10 


CONTINUE 


TYPE 6— 

GO TO 9 

FORMAT (SWHATS/) 

GO T0(30,40,50,60,70) y1 
LANS=IARG1+IARG2 

GQ TO 65 
LANS=IARG1-IARG2 

GO TO 65 | 
IANS=IARG1*IARG2 

GO TO 65 
LANS=IARGI/IARG2 

GO TO 65 

TYPE 80,IARG1, IOPERATE,sIARG2,I1ANS 
Go TO 9 
FORMAT(I18yA1,18)$=$918/) 
PAUSE 

END 


aQ. 


MC-FORT:9SYM 


This ‘oxaupie shows assignment and comparisen ef 


nen-numeric data, the arithmetic if statement, and 
input-eutput te teletype using TYPE and ACCEPT commands. 


® FTC 


VERSION 12-93-79 ("H.' FOR HELP) TODAY IS @4/21/75 


+INPVUT FROM MC-FORT. 
+OUTPYT TO "OBJECT". 


COMPILING MAIN PROGRAM 


COMPILE TIME 62025 


t+PINISHED. TOTAL COMPUTE 


@ FOS 


TIME 02027 


1259339 


VERSION 12-83-78 ("3H" FOR HELP) TODAY IS @B4/21/75 1252:@5 


LOAD MAIN PROGRAM 

FROM FILE OBJECT. 
LOADING TIME @:@3:1 

$863 YORDS OF STORAGE UN 
+3 


+1234,55785 1234+ 
-937653765s,  9876- 
K2ASSs, 1111, | 2AG8 
7999959999, 9999/7 
PAUSE 

+53 FE. 


TOTAL COMPUTE TIME @:9:3 


@ 


SED 
5673 5912 
8765= 111] 
LlL1= 2741948 
9999= ! 


PAGE 1 TUESDAY A&PRIL 22, 1975 13240:16 TEST:9OSYM 


DIMENSION IGRADE(SO) + KEY (50) sSSNC ey 50) 


l FORMAT ( 2A6,13/) — | ! 
10 tei : 
SDEV=O. 
XMEAN=O. 
TYPE 2 | 
? FORMAT(S TYPE ID AND GRADES$/) 
20 ACCEPT 1, (SSN(KyI),K=1,2),IGRADE(I) 
IF(IGRADE(1)-100) 30,30,40 
30  GRADE=IGRADE(1) 


XMEAN=XMEAN+GRADE 
SDEV=SDEV+GRADE*#2 


KEY(I) =I 

Lei? 1 

GO TO 20 
40 i=l-1 


CALL SORTI(CIGRADE,KEY,1) 
DO 45 M=lylI 
L=KEY(M) 
465 TYPEL,(SSN(KyL),K=1,2),1GRKADE(M) 
LHIGH=IGRADE(I) 
LOW=IGRADE(1) 
FN=I | 
Me(FN+1.)/2. 
MEDIAN=IGRADE(M) 
SDEV=SQRT( (SDEV-XMEAN**2/FN)/(FN-1.)) 
XMEAN=XMEAN/EN 
TYPE 3,1,XMEAN 
TYPE 6,SDEV,MEDIAN 


TYPE 7,LHIGH,LOW ee 
FORMAT(S FORS,135h DATA POINTS, THE MEAN IS $,13/) 


An at O® Ww 


FORMAT(S THE STANDARD DEVIATION IS%,F5.2,% THE MEDIAN IS $,13/) 
FORMAT(S RANGE IS FROMS$,13,% TO$%,13/) 
0 PAUSE 1 
GO TO 10 
END 
SUBROUTINE SORTI (LyKEY,NO) 
DIMENSION L(1),KEY(1) 
| MO=NO _ 
10 IF(MO-16) 80;20,20 
20 — M052" (M0/8) +1 | 
30 KO=NO-MO 
, Jo=l 
40 T=J0 
IPMO=1+MO 7 
50 IF(L(IPMO)-L(1I)) 60,60,70 
60. LEMP=L(1) 


L(I)=L(IPMO) 
‘L(IPMO)=LEMP 
KEMP=KEY(I) 
KEY(1)=KEY(IPMO) 
KEY(1PMO)=KEMP 
IPMOeI 
[sI-MO 
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20 


“TUESDAY APRIL 22, 1975 13340318  PEST:9SYM 


—IF(I-1)°70,50,/50 


JO=z=70+1 
LF(JO~-KO) 40,40,10 


 ITF(MO-1) 100,100,90 


MO=2*(MO0/4) +1 
GO TO 30 | 
RETURN 

END 


This example shows calling a subroutine with variable 
dimensiens, using nen-numeric data in an array, and 
cenversien from real to fixed point eutput in the format 
statement. 


The data could ve read from a symbolic file by inserting 
the follewing changes; file "DATA" is written in QED. 


OPEN(3, INPUT ,SYMBOLIC , "DATA: 9SYM" ) 


e*e%e6e¢ 


READ(3,1) (SSN(K,I) ,K=1,2),1GRADE(I) 


CLOSE(3) 


@#ee & 6 


Oat 


JERSION 12-93-75 ("H." FOR HELP) TODAY IS 94/22/75 1329:54 
INPUT FROM TEST. | | : 
4OUTPUT TO "TOBJ. 

+DEBUG e 

tCOMPILE. 


COMPILING MAIN PROGRAM 
COMPILING SUBROUTINE SORTI 


COMPILE TIME 6:9:9 


+FINISHED. TOTAL COMPUTE TIME :9:19 


@ FOS 


VERSION 12-03-70 ('SH" FOR HELP) TODAY 1S 94/22/75 1331:12 
LOAD MAIN PROGRAM | | 
FROM FILE TOBd. 
MISSING 

SART 

PAASYS 
LOAD SUBPROGRAMS 
FROM FILE #2:FLIBE-. 

LOADING TIME @:0:4 | 
6922 WORDS OF STORAGE UNUSED 
+3G : 

TYPE ID AND GRADES 

523-A48-8131 94 

312-44-1938 70 

226-36-5475 &2 

576-46-4387 76 

575-338-2978 92 


312-444-1839 78 

576-46-4387 78 

25-36-5475 82 

523-458-8131 98. 

575-38-2978 92 , 

FOR 5 DATA POINTS, THE MEAN IS 8&2 | 
THE STANDARD DEVIATION IS 8.99 THE MEDIAN IS 82 
RANGE IS FROM 92 TO .79 | 


PAUSE 1 
+HKEY OL) 
+#KEYC2)/ 
4KEY ORS 
tKEY CA) / 
FKEY C5) / 
+3 Fe 


TOTAL COMPUTE TIME 0:9:8 


az 1 


Ulm G3 


@ 
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